Google
 
Trailing-Edge - PDP-10 Archives - 6.1_emacs_manuals_1er - emacs/teach-c100.:ej
There are no other files named teach-c100.:ej in the archive.
PW[0 +8+fq(+4)[1
0fo10f"g+q1'
+fq()+4u1
fq1"l 0'
,q1:m(q1+4(]1]0))=#1



Z

k"8^pAQdm{ARau'?1EThHT
kq#Insert Teach-C100 Teco Commands"@i|
    !* The following 4 lines of Teco code read in the C100 key definition
     * file and blast it out to the terminal in image mode.  This is only
     * done if the terminal type is C100.!
 fsRGETTY-16"e			    !* If C100...!
    f[BBind f[DFile er @y    !* then read file,...!
    hx*fsImageOutw		    !* blast it out...!
    f]DFile f]BBind'		    !* and then restore things.!
|
 !Make C100 Key Definition File&[1[2[3 f[DFile
 etDSK: fsHSNamefsDSNamew etC100-KEYS >
m(m.m& Read Filename)Source filef"e'u1
etC100-KEYS IMAGE
m(m.m& Read Filename)Object filef"e'u2
f[BBind
e[ e\ fn e^ e]
er1 @y
fsIFileu3 :ftCompiling 3...
1f<!OK!
    1f<!Abort Teach-C100!
       1m(m.m& Compile C100 Key Buffer)u1

f;OK
>w 
>w
et2 eihpef
fsOFileu3 ft done.
Image file is 3.
Total use of local memory will be  q1:= ft characters.


@ft
Should the keys be redefined now
1m(m.m& Yes or No)"n
hx*fsImageOutw'
ftDone.
 Show C100 Keysk:ftType a Control-G to quit out of this.

 <  fim(m.m& Charprint)
ft 
30:"e
ft
     '
>
 & Compile C100 Key Buffer)	[1[2[3[4[5[..d 0f[VB 0f[VZ
 m(m.m& Make C100 Key File ..D)u..d
m(m.m& Make C100 Key Name Variables)

j :< @f
	 l .-z;
@fll
>"n
ft
** Syntax is not a buffer of balanced s-expressions.  Check for any suspicious
   use of %, the quote character.  E.g. if you want a % in your string, you
   need to use %%.  Aborting compilation.
f;Abort Teach-C100'
j @i|U$|

0u5

<  0fsVZw @f
	 k .-z;
1a-("n
:i*Encountered something other than "(" at top levelfsErr
      !''!'
@fl fsBoundariesw
c @flf(x1)l
f=1*"e hk !<!>'
f~1Transmit"n f~1Local"n f~1Quote"n
:i*1 illegal CAR of form -- use *, Transmit, Quote, or LocalfsErr
      '''
f~1Quote"e -1u4'
"# f~1Transmit"e 34u4'
"# 35u4''

q4:"l
:@fll @flf(x1)l
"n ft1, '
0fo..qC100K 1 Xu2

q2"e :i*1 is not a legal C100 key namefsErr''
:@fll 0,1a-""n :i*String does not begin with a "fsErr!'!
		     ' !'!
@flx3
fq3-1:g3-""n :i*String does not end with a "fsErr!'!
		   ' !'!
hk g3 jd zj-d
j <:s
      ; fkd 15.i>
j <:s%; -d c >
zj
q4:"l
hfx3
fq3-95"g !"!:i*1's string is too long -- max length is 95fsErr'

fq3+q5u5
@i|4|
32+(fq3)i

q2i
q4i

g3' >
q5& Make C100 Key File ..D

:i*                                                                                                                                        A                             A    |    A         /    A    '    (    )    A    A         A         A   AA   AA   AA   AA   AA   AA   AA   AA   AA   AA    A    A    A    A    A    A    A   AA   AA   AA   AA   AA   AA   AA   AA   AA   AA   AA   AA   AA   AA   AA   AA   AA   AA   AA   AA   AA   AA   AA   AA   AA   AA    A    A    A    A    A    A   AA   AA   AA   AA   AA   AA   AA   AA   AA   AA   AA   AA   AA   AA   AA   AA   AA   AA   AA   AA   AA   AA   AA   AA   AA   AA    A    A    A    A         
"& Make C100 Key Name Variableso1,m.m& Kill Prefixed Variable Names"e
f[:EJPage m(m.mLoad Library)TMACSw'
@fn| m(m.m& Kill Prefixed Variable Names)C100K  |

48 m.vC100K INSRT Xw
 49 m.vC100K DEL-CHAR Xw
 50 m.vC100K DEL-LINE-INS Xw
 51 m.vC100K EOP-CLEAR-EOL Xw
 52 m.vC100K SEND Xw
 53 m.vC100K F1 Xw
 54 m.vC100K F2 Xw
 55 m.vC100K F3 Xw
 56 m.vC100K F4 Xw
 57 m.vC100K F5 Xw
 58 m.vC100K F6 Xw
 59 m.vC100K F7 Xw
 60 m.vC100K F8 Xw
 61 m.vC100K F9 Xw
 62 m.vC100K F10 Xw
 63 m.vC100K F11 Xw
 64 m.vC100K F12 Xw
 65 m.vC100K F13 Xw
 66 m.vC100K F14 Xw


 32 m.vC100K SHIFT-INSRT Xw
 33 m.vC100K SHIFT-DEL-CHAR Xw
 34 m.vC100K SHIFT-DEL-LINE-INS Xw
 35 m.vC100K SHIFT-EOP-CLEAR-EOL Xw
 36 m.vC100K SHIFT-SEND Xw
 37 m.vC100K SHIFT-F1 Xw
 38 m.vC100K SHIFT-F2 Xw
 39 m.vC100K SHIFT-F3 Xw
 40 m.vC100K SHIFT-F4 Xw
 41 m.vC100K SHIFT-F5 Xw
 42 m.vC100K SHIFT-F6 Xw
 43 m.vC100K SHIFT-F7 Xw
 44 m.vC100K SHIFT-F8 Xw
 45 m.vC100K SHIFT-F9 Xw
 46 m.vC100K SHIFT-F10 Xw
 47 m.vC100K SHIFT-F11 Xw
 67 m.vC100K SHIFT-F12 Xw
 68 m.vC100K SHIFT-F13 Xw
 69 m.vC100K SHIFT-F14 Xw

 :
+& SetUp Compressed TEACH-C100 Libraries1,m.m& Compressed TMACS Library:"e
1,m(m.m& Get Library Pointer)TMACS"e
f[:EJPage
:ejemacs;TMACS :ej''
m.m& Default Variable



~FILENAME~TEACH-C100~DOC~ ~FILENAME~,Library for defining Concept-100 keys.
)~DOC~ Insert Teach-C100 Teco CommandsC String argument is definition filename.
This command inserts into the buffer (which presumably is your init file) a
    couple of lines of Teco commands that will read in a C100 key definition
    file, and type it to the terminal (in image mode) in order to define the
    C100 keys.
The Teco code includes a conditional so that the file is only printed if the
    terminal that you are using is a Concept-100.
See the description of MM Make C100 Key Definition File to find out how to
    create a c100 key definition file.
'~DOC~ Make C100 Key Definition File@C Asks for source and object filenames.
Asks for a source file, which contains InterLisp-like forms that define what
    keys should be redefined to send.
Asks for the object file, which will contain the exact string to send to
    the terminal to define the keys.  See the Insert Teach-C100 Teco Commands
    function for inserting something into your EMACS init file.
Finally, after compiling, asks if it should redefine the keys now.
~DOC~ Show C100 KeysnC Until user types Control-G.
Prints description of each character of key as user types it, with each
    character separated by a space, e.g. it might print "Altmode X t o p
    Altmode" if you type a key which sends "Xtop".
If nothing is received after a second, it figures the key is done sending
    things, and it prints a carriage-return linefeed.
#~DOC~ & Compile C100 Key BufferJS Convert lispish buffer to image string.
NUMARG non-0 says to type names of keys as they are compiled, so that if an
    error occurs, the user has some idea where.
If first syntax-check fails, we print help and throw to Abort Teach-C100.
Returns total local memory use, i.e. sum of lengths of all redefinition
strngs.
"~DOC~ & Make C100 Key File ..DS Return a suitable ..D.
(~DOC~ & Make C100 Key Name VariablescS Give them number translations.
Set up ..N to kill the variables later when caller returns.
1~DOC~ & SetUp Compressed TEACH-C100 LibrarieswS Call hidden & SetUps.
I.e. those from files whose ~FILENAME~s are not that of the object file.
The object file & SetUp (i.e. the main one) should call this.

This object file was compressed on 11:42pm  Tuesday, 11 December 1979
by CICCARELLI on BBN-TENEXD from the following source libraries:

    PS:<CICCARELLI>TEACH-C100.EMACS-LIBRARY.18,  12/11/79 23:42:40
~DIRECTORY~RInsert Teach-C100 Teco Commands
Make C100 Key Definition File
Show C100 Keys
& Compile C100 Key Buffer
& Make C100 Key File ..D
& Make C100 Key Name Variables
& SetUp Compressed TEACH-C100 Libraries


~INVERT~[1 <Q1-1U1 Q1FP;> Q1